home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / trinitybbs20.lha / CDROM.src < prev    next >
Text File  |  1995-09-26  |  4KB  |  175 lines
  1. DIM farea$(11)
  2. print "CD-Rom Installer For Trinity BBS:"
  3. print
  4. print 
  5. input "Enter CD DEVICE Name: (ex. CD0:) : ",dev$
  6. input "Enter Path & File Name For Dir File : ",file$
  7. input "Enter File List Filename : ",flist$
  8. input "Enter # of Header Lines In File List : ",hlines%
  9. if file$="" then system
  10. input "Enter A Library Name : ",lib$
  11. if lib$="" then system
  12. print "Creating Library ";lib$;"...";
  13. 'goto a:
  14. flib$(1)=lib$
  15. flib$(2)="0"
  16. flib$(3)="NONE"
  17. flib$(4)="0"
  18. flib$(5)="99"
  19. flib$(6)="O"
  20. a$="filearea:LIBS"
  21. if fexists(a$) then open a$ for input as #1:input #1,ltotal%:close #1
  22. OPEN "R",#1,"filearea:LIB.LIST",57 
  23. actual%=0
  24. for i%=1 to ltotal%
  25. FIELD #1,40 AS a1$,2 AS a2$,10 AS a3$,2 AS a4$, 2 AS a5$, 1 AS a6$
  26. get #1,i%
  27. call trunc(a1$)
  28. if a1$="deleted" then actual%=i%:goto savelib1
  29. next i%
  30. incr ltotal%:actual%=ltotal%
  31. open a$ for output as #2
  32. print #2,ltotal%
  33. close #2
  34. SAVELIB1:
  35. area%=actual%
  36. FIELD #1,40 AS a1$,2 AS a2$,10 AS a3$,2 AS a4$, 2 AS a5$, 1 AS a6$
  37. lset a1$=flib$(1)
  38. lset a2$=flib$(2)
  39. lset a3$=flib$(3)
  40. lset a4$=flib$(4)
  41. LSET a5$=flib$(5)
  42. LSET a6$=flib$(6)
  43. put #1,area%
  44. close #1
  45. a$="filearea:"+flib$(1)
  46. if not fexists(a$) then mkdir a$
  47. print "FINISHED!"
  48. a:
  49. open file$ for input as #5
  50. do until eof(5)
  51. line input #5,d$
  52. s%=instr(d$," ")
  53. d1$=mid$(d$,1,s%)
  54. d2$=mid$(d$,s%+1,len(d$))
  55. CALL trunc(d1$):CALL trunc(d2$)
  56. a%=INSTR(d2$,"-"):IF a%=0 THEN a%=INSTR(d2$,":")
  57. IF a%<>0 THEN d2$=MID$(d2$,a%+2,LEN(d2$))
  58. a&=SADD(d2$)
  59. FOR ix%=0 TO LEN(d2$)-1
  60. j%=PEEKB(a&+ix%)
  61. IF j%=47 OR j%=92 OR j%=58 THEN POKEB a&+ix%,32
  62. NEXT ix%
  63. print "Creating Dir: ";d2$;" (";d1$;")..."
  64. atotal%=0
  65. a$="filearea:"+flib$(1)+"/AREAS"
  66. if fexists(a$) then open a$ for input as #1:input #1,atotal%:close #1
  67. OPEN "R",#1,"filearea:"+flib$(1)+"/AREA.LIST",137 
  68. actual%=0
  69. for i%=1 to atotal%
  70. FIELD #1,30 AS a1$,2 AS a2$,10 AS a3$,2 AS a4$, 80 AS a5$,4 AS a6$,1 AS a7$,5 AS a8$,1 AS a9$,1 AS a10$,1 AS a11$
  71. get #1,i%
  72. call trunc(a1$)
  73. if a1$="deleted" then actual%=i%:goto savefarea1:
  74. next i%
  75. incr atotal%:actual%=atotal%
  76. a$="filearea:"+flib$(1)+"/AREAS"
  77. open a$ for output as #2
  78. print #2,atotal%
  79. close #2
  80. SAVEFAREA1:
  81. farea$(1)=d2$       'File Area (Dir) Description 
  82. farea$(2)="0"        'Access Level    
  83. farea$(3)="NONE"    'Password
  84. farea$(4)="0"        'Youngest Age
  85. farea$(5)=dev$+d1$    'Dir On CD-Rom
  86. farea$(6)="0"        'Deletion Months (Can't Delete Anyhow!)
  87. farea$(7)="0"        'Auto Validate Files (No!)
  88. farea$(8)="0"        'Space Min
  89. farea$(9)="0"        'Allow Uploading (No Of Course!)
  90. farea$(10)="O"          'OPEN AREA
  91. farea$(11)="1"          'CD-ROM FLAG 1 = yes
  92. area%=actual%
  93. FIELD #1,30 AS a1$,2 AS a2$,10 AS a3$,2 AS a4$, 80 AS a5$,4 AS a6$,1 AS a7$,5 AS a8$,1 AS a9$,1 AS a10$,1 AS a11$
  94. lset a1$=farea$(1)
  95. lset a2$=farea$(2)
  96. lset a3$=farea$(3)
  97. lset a4$=farea$(4)
  98. lset a5$=farea$(5)
  99. lset a6$=farea$(6)
  100. lset a7$=farea$(7)
  101. lset a8$=farea$(8)
  102. lset a9$=farea$(9)
  103. LSET a10$=farea$(10)
  104. LSET a11$=farea$(11)
  105. put #1,area%
  106. close #1
  107. a$="filearea:"+flib$(1)+"/"+farea$(1)
  108. if not fexists(a$) then mkdir a$:mkdir a$+"/files"
  109. print "Adding Files..."
  110. x$=dev$+d1$+"/"+flist$
  111. tfl%=0:actual%=0
  112. a$="filearea:"+flib$(1)+"/"+farea$(1)+"/FILE.LIST"
  113. open "R",#8,a$,110
  114. open x$ for input as #7
  115. for i%=1 to hlines%:line input #7,a$:next i%
  116. do until eof(7)
  117. line input #7,f$
  118. s%=instr(f$," ")
  119. f1$=mid$(f$,1,s%)
  120. f2$=mid$(f$,s%+1,len(f$))
  121. call trunc(f1$):call trunc(f2$)
  122. 'print "Filename: ";f1$
  123. 'print "Descript: ";f2$
  124. filename$=f1$
  125. a$=farea$(5)+"/"+filename$
  126. if fexists(a$) then open a$ for input as #1:length$=mid$(str$(lof(1)),2,len(str$(lof(1)))):close #1
  127. a$="filearea:"+flib$(1)+"/"+farea$(1)+"/totalfiles"
  128. incr actual%
  129. file%=actual%:fdate$=date$
  130. tdown$="0"
  131. type$="1"    'Validated
  132. free$="0"
  133. desc$=f2$
  134. upname$="CD-ROM"
  135. field #8,10 as a1$,25 as a2$,8 as a3$,5 as a4$,1 as a5$,_
  136. 1 as a6$,40 as a7$,20 as a8$
  137. lset a1$=fdate$
  138. lset a2$=filename$
  139. lset a3$=length$
  140. lset a4$=tdown$
  141. lset a5$=type$
  142. lset a6$=free$
  143. lset a7$=desc$
  144. lset a8$=upname$
  145. put #8,file%
  146. uplength&=0
  147. loop
  148. close #8
  149. a$="filearea:"+flib$(1)+"/"+farea$(1)+"/TOTALFILES"                                            
  150. open a$ for output as #8
  151. print #8,actual%
  152. print #8,actual%
  153. Close #8
  154. print "FINISHED! Added";actual%;" Files."
  155. loop
  156. close #5
  157. print
  158. print "ALL DONE!"
  159. SUB TRUNC(a$)
  160.     l%=LEN(a$)
  161.     FOR i%=LEN(a$) TO 1 STEP -1
  162.     IF MID$(a$,i%,1)=" " THEN DECR l%
  163.     if mid$(a$,i%,1)<>" " then exit for
  164.     NEXT i%
  165.     a$=LEFT$(a$,l%)
  166.     l%=1
  167.     FOR i%=1 to LEN(a$)
  168.     IF MID$(a$,i%,1)=" " THEN incr l%
  169.     if mid$(a$,i%,1)<>" " then exit for
  170.     NEXT i%
  171.     a$=mid$(a$,l%,len(a$))
  172. END SUB
  173.  
  174.  
  175.